﻿Public Class PhieuNhapBUS
    Public Function GetPhieuNhap() As DataTable
        Dim pn As New PhieuNhapDAO
        Return pn.GetPhieuNhap()
    End Function

    Public Sub AddPhieuNhap(ByVal newPN As PhieuNhapDTO)
        Dim hd As New PhieuNhapDAO
        hd.AddPhieuNhap(newPN)
    End Sub

    Public Sub DelPhieuNhap(ByVal delPN As PhieuNhapDTO)
        Dim hd As New PhieuNhapDAO
        hd.DelPhieuNhap(delPN)
    End Sub

    Public Sub UpdatePhieuNhap(ByVal newPN As PhieuNhapDTO)
        Dim hd As New PhieuNhapDAO
        hd.UpdatePhieuNhap(newPN)
    End Sub
End Class
